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Steven B. Lionel, 20-July-1979 
; MODIFIED BY: 


NOUS WN OC ODNOAUE WN OOO NAME WA O OONOA UE WN OWONOUS Wh 


BBE LEE FP NAWNNWNAI ANNI POPONINPINPONPONNNDY 2 2 2 SS OO OS 


000 : 

Bn0 : FACILITY: MATH LIBRARY 
000 : ABSTRACT: 

4 Perform D COMPLEX*16 exponentiation: e**(r,i) 
000 

000 ;-- 

000 

000 ; VERSION: 1 

000 

000 : ; HISTORY: 

000 

000 : ; AUTHOR: 

000 

000 

000 

000 

000 

0 


id ss al D COMPLE EX*16 Exponential ¢ -SEP-1984 t 9: 96: +9 yAaeuas Macro Vv04-00 Page g 
1-00 HISTORY ; Detailed Current Edit History 6-SEP-1984 74 MTHRTL.SRCJMTHCDEXP.MAR; 1 (2) 
8 23 -SBTTL HISTORY ; Detailed Current Edit History 
0 é] 
i 26 ; Edit History 
0000 54 : 1-001 = Adapted from MTHSCEXP version 1-002. SBL 20-Ju! 1y=1979 
0000 55 ; 1-002 = Changed shared external references to G* RNH 25-Sep-81 
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MTHSCDEXP D COMPLEX*16 Exponential 16-SEP=1 74 AX/VMS Macro v04-00 Page 
TOS DECLARATIONS : 6-SEP- 1984 9 £98: 49 EMTHRTL. Sh SRE SMTHCDEXP.MAR: 1 . 3) 

$i 38 -SBTTL DECLARATIONS 

0 3 

000 60 ; INCLUDE FILES: 

44 61; 

000 66 
itd e7 ; EXTERNAL SYMBOLS 

0000 65 DSABL GBL 
0000 66 EXTRA MTHSDSIN_R7 
0000 67 -EXTRN MTHSDCOS_R7 

0000 68 “EXTRN MTHSDEXP_ R7 

0000 69 

0000 70 ; 

0000 71 ; MACROS: 

0000 ie : NONE 

0000 7 
0000 74 ; 
0000 75 ; PSECT meth ee ATIONS: 

00000000 76 ~PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 

0000 77 

0000 78 ; 

0000 79 ; EQUATED SYMBOLS: 

0000 80 ; 

0009 
0000 82 ; 


000 83 : OWN STORAGE: 
000 «8 NONE 


6D O0000000'GF 9 MOVAB G“MTHSSJACKET_HND, (FP) 


3; set handler address to jacket 


MTHSCDEXP D COMPLEX*16 Exponential 16-SEP-1984 01:06:4 AX/VMS Macro v04-00 P 4 
1-002 MTHSCDEXP = porters D COMPLEX*16 exponen gree obs 138529 UMTHRTL. SREIRTHCDEXP.MAR: 1 oF (4) 
33 ‘ -SBTTL MTHSCDEXP = perform D COMPLEX*16 exponentiation 
Me ag 
909 89 ; FUNCTIONAL DESCRIPTION: 
000 91: The result of the operation e ** (r, i) is computed 
i ts et 
00 9% : result = (EXP(r) * COS(i), EXP(r) * SIN(i)) 
0000 95 : . ci 
6000 96 ; CALLING SEQUENCE: 
44 97 ; CALL MTHSCDEXP (result.wdc.r, arg.rdc.r) 
000 98 ; 
0000 99 ; 
0000 100 ; INPUT PARAMETERS: 
00000008 t+ 19) ; arg = 8 ; D COMPLEX*16 argument by reference 
0000 108 : IMPLICIT INPUTS: 
0000 104; NONE 
0000 105; 
0000 106 ; OUTPUT PARAMETERS: 
00000004 4 4 result = 4 ; D COMPLEX*16 result by reference 
0 109 : IMPLICIT OUTPUTS: 
3 119 ; NONE 
0 118 > COMPLETION CODES: 
0 113; NONE 
0 114; 
0 115 ; SIDE EFFECTS: 
9 FO 3 Signals: MTH$_SINSIGLOS if ‘ii! > 2*P]*2"#31, 
4 ie ; Floating Overflow if r > 88.028 
0 119 i-- 
5 454 
OOFC 0 122 -ENTRY MTHSCDEXP, “M<R2,R3,R4,R5,R6,R7> 
: 123 MTHSFLAG_JACKET : resignal 
2 
9 
9 
9 
9 
p 
6 
6 
A 
7 
D 
0 
6 
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3; handler 
136 
50 08 B6C 7D 125 MOVQ Sorat ae). RO ; RO-R1 = real pert 
00000000'°GF 16 1 § G*MTHSDEXP_R7 ; RO-R1 = EXP(r 
, a ee ' i mMOVa RO, -(SP) : Save it on the stack 
50 08 AC 00 ' ; MOVL arg(AP), RO ; RO is address of arg 
50 08 AO 7D 131 MOVQ 8(RO), RO ; RO-R1 = imaginary part 
7E 0 7D 13 mova (§p) ; Save im ginery part 
00000000 ' GF 16 1 JSB G*MTHSDCOS_R7 : RO-R1 = COSCi 
04 BC OB A 50 § 134 MULDS RO, B8(SP), @result(AP) ; Store real part f 
E D 135 mMOVa (SP)+, RO ; Get_imaginary part again 
00000000'GF 16 136 8 G*MTHSDSIN_R7 > RO-R1 = SIN(1) 
52 04 AC 00 137 MOVL result(AP), R2 ; Address of result 
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Se D COMPLEX*16 Exponential ub ak tet B49 91: 96: $9 od Macro Vv04-00 Page 5 
1-00 MTHSCDEXP = perform D COMPLEX*16 exponen 6-SEP-1984 74 MTHRTL.SRCJMTHCDEXP.MAR; 1 (4) 
08 A2 8E 50 5 an 3 MULD3 RO, (SP)+, 8(R2) ; Store imaginary part 
ba Sear 130 RET or 
t8 140 
4 141 
040 142 ~END 


MTHSCDEXP D COMPLEX*16 Exponential 16°S =1384 9}: 96: 48 rn oe o V04-00 Page 6 
Symbol table 6-S 1:20:4 MTHRTL.S CIMTHCDEXP. MAR; 1 (4) 


ARG = 00000008 
MTHSSJACKET_HND eteneeee =X (1 
MTHSCDEXP 00000000 RG 4 
MTHSDCOS_R7 eeereree X 00 
MTHSDEXP_R7 tererere xX 00 
MTHSDSIN_R7 eereeeee =X 8600 
RESULT = 00000004 

-owmmanawemnscseecawon + 

! ;_Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
~ OS «+ 00000000 (¢ 0.) 00 ¢ O.) NOPIC USR CON ABS LCL — NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 00000040 <¢ 64.) O01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

$rmeere er eee ee men ew ee eececon es } 
! ; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00:00.11 00:00:00.74 
Command processing 130 00:00:00.73 00:00:05.53 
Pass 81 00:00:00.68 00:00:03.80 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 40 00:00:00.45 00:00:02.60 
Symbol table output 2 00:00:00.02 00:00:00.02 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 290 00:00:02.02 00:00:12.75 


The working set aw was 900 pages. 

2344 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 7 non-local and 0 Local symbols. 
202 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

1 page of virtual memory was used to “define 1 macro. 


Macro Library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLB;2 i itt “'. 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCDEXP/OBJ=OBJ$:MTHCDEXP MSRC$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) +MSRC 
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